home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / comm / irc / NickServAuth.lha / NickServAuth.AmIRX next >
Encoding:
Text File  |  2001-03-25  |  897 b   |  23 lines
  1. /* ****************************************************** */
  2. /* NickServAuth.AmIRX 1.1 by S7reaM <stream@amiga.org.ru> */
  3. /* Identify you at NickServ IRC service.                  */
  4. /* Installation: copy to AmIRC/Rexx directory and rename  */
  5. /* to "Connected.AmIRX".                                  */
  6. /* Configuring: set your NickServ password and set domain */
  7. /* of IRC network where you want to be identify.          */
  8. /* ****************************************************** */
  9. password="mykewlpass" /* SET YOUR NICKSERV PASSWORD HERE */
  10. ircdomain="undernet.org" /* SET YOUR IRC NETWORK DOMAIN */
  11. /* DON'T EDIT LINES BELOW */
  12. Options Results
  13. "GETSERVERNAME"
  14. server=upper(result)
  15. ircnetdomain=upper(ircdomain)
  16. if(index(server,ircnetdomain)>0) then identme()
  17. else
  18. end
  19. identme:
  20. "RAW PRIVMSG" NickServ ":identify "password
  21. "ECHO P="d2c(27)"b«NickServ» C="3 "Registering on NickServ..."
  22. exit
  23.